Check out my twitter script by CMXads
| Goth and Gore Gifts Shop right now or else! | PHP Gallery PHP Gallery is a free php image script. | Till death do us part Axels New Music releases | Sell your soul Believeth in me an hath everlasting life |
here are some of the best and useful php scripts and snippets to help in your projects. Php displayed below. Use the search for specific script lookups. Click the category links to view scripts in Javascript and cgi. To add your own script click the link and add your useful script example.
generate random links for display with this simple cgi perl new script
great for text ads links
cgi random link
randon-link date added Jan 2013
#! /usr/local/bin/perl
##############################################
################################
# Random Link Vers
ion 1.0 #
# Copyright 1996 Matt Wrig
ht mattw@scriptarchive.com #
# Created 7/15/9
5 Last Modified 7/30/95 #
# Scri
pts Archive at: http://www.scriptarchive.com/
#
##################################################################
############
# COPYRIGHT NOTICE
#
# Copyright 1996 Matthew M. Wright All Rights
Reserved. #
#
#
# Random Link may be used
and modified free of charge by anyone so long as #
# this copyright
notice and the comments above remain intact. By using this #
# code
you agree to indemnify Matthew M. Wright from any liability that
#
# might arise from it's use.
#
#
#
# Selling the code for this program without pr
ior written consent is #
# expressly forbidden. In other wor
ds, please ask first before you try and #
# make money off of my pro
gram. #
#
#
# Obta
in permission before redistributing this software over the Internet or
#
# in any other medium. In all cases copyright and header must rem
ain intact.#
########################################################
######################
# Define Variables
$linkfile = "/home/scrip
tarchive/demos/links/database";
# Options
$uselog = 1;
# 1 = YES; 0 = NO
$logfile = "/home/scriptarchive/demos/links/rand
_log";
$date = `date +"%D"`; chop($date);
# Done
##############
################################################################
op
en (LINKS, "$linkfile");
srand(); # kick ran
d
$nlines=@file=<LINKS>; # inhale file & get # of lines
print "Location: $file[int rand $nlines]\n\n";
# print a random line
close (LINKS);
if ($uselog eq '1') {
open (LOG, ">>$logfile");
print LOG "$ENV{'REMOTE_HOST'} - [$date
]\n";
close (LOG);
}
exit;